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BEGIN 
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: 

Ee i 

Fi é 0006 : 

Phe Bae 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
$ 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
3 \} pet} ! ;* ALL RIGHTS RESERVED. : 
; ig oOi8 1 ie had he ay ® 4 Pyrat anee UNDER A LICENSE AND MAY BE USED AND gh * 
$ 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
; 15 0015 1 I! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i sid 4 : i; TRANSFERRED. : 
: 20 bo5¢ 1 it THE a rae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 $8 poss : bw CORPORATION. . 
if 

; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 26 0026 1 !* * 
: 27 0027 1 Is e 
: $i b056 1 Leer eee REAR EAA AERA EAE AEA 
: $3 0080 1 

a 0031 1 !++4 

3 3 i t4 ! FACILITY: EDT == The DEC Standard Editor 

: 34 0034 | ABSTRACT: 

; $9 Boas : Delete a bucket. 

; 35 ts : ! ENVIRONMENT: Runs at any access mode - AST reentrant 

: 40 9040 i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

; 42 004¢ MODIFIED BY: 

3 (46 sg: 1 | 1-001 - Original. DJS 23-Feb-1981. This module yas created by 

s 65 045 1! extracti ng routine DELETE BUKT sees module EDTWF. 

: 66 00g 1! 1-008 - Regularize headers. JBS 16- 8 

3 47 04 ? 1-08 = Soleus EDTSSSET UKiN JBS 16° “Se -1982 

: 48 048 1 | 1-004 = Remove call to EDTS$uF -RELBUK. STS 11-Oct-1982 

: 69 0049 1 !<= 

pS 0050 1 
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SBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM’; 


FORWARD ROUTINE 
EDTSS$WF_DELBUK : NOVALUE; 


INCLUDE FILES: 
REQUIRE ‘EDTSRC:EDTREQ'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
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EDTSWFDELBKT = delete the current bucket 18-52 -1984 02:04:37 VAX=11 Bliss-32 V4.0-74 Page 
EDTSSWF_DELBUK = delete the current bucket 1 730071382 95:98:35 DLSKSVMSMASTERSCEDT SRCSWFDELBKT.BLIs4? 
$ 5 ] ZSBTTL "EDTSSWF_DELBUK = delete the current bucket’ 
6 ; 1 GLOBAL ROUTINE EDTSS$WF_DELBUK ! Delete the current bucket 
6 8 1 : NOVALUE = 
6 1 
660 1 !++ 
R083 ! FUNCTIONAL DESCRIPTION: 
0665 1! This routine is called when all the text in a bucket has been deleted. 
0664 1! If this is not the only bucket in the text buffer, then update the Links 
0665 1! of the previous and next bucket to pote to each other, handling the 
bee ! special case of the first and last bucket. 
0668 1 ! FORMAL PARAMETERS: 
0669 1! 
0670 1! NONE 
0671 1! 
0672 1 ! IMPLICIT INPUTS: 
0673 1! 
0674 1! EDTSSA_CUR_BUF 
0675 1! EDTS$A_WK_BUK 
0676 1! EDT$$G_WK~ CURBUK 
0677 1! 
0678 1 ! IMPLICIT OUTPUTS: 
0679 1! 
0680 1! EDTS$G_WK_MODFD 
0681 1! EDTS$A_CUR_BUF 
0682 1! EDT$$G_WK_CURBUK 
0683 1! EDTSSA_WK_LN 
0684 1! 
0685 1 ! ROUTINE VALUE: 
0686 1! 
0687 1! NONE 
0688 1! 
0689 1 ! SIDE EFFECTS: 
0690 1! 
0691 1! Changes the current bucket. 
0692 1! 
0693 1 !-- 
0694 1 
0695 BEGIN 
069 
069 EXTERNAL ROUTINE 
4 EDTSSWF_MAKECUR : NOVALUE, 
9 EDTSSRD_NXTLN; 
700 
44 aarean, 
4 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ' Current text buffer control block 
070 EDTSS$A_WK_BuK : ! Pointer to current bucket 
Bree REF BCOCK CWF_BUKT_SIZE, BYTE] FIELD (WFB_FIELDS), 
705 EDTS$$G_WK_AVAIL, 
P08 EDTS$$G_WK_CURBUK, ! Number of the current bucket 
70 EDTS$G_WK_MODFD ! Flag indicating bucket was modified 
708 EDTSSA“WK-LN : REF LIN_BLOCK; i Pointer to work Line 
arte LOCAL 
711 NEXT, 
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delete the current bucket 
- delete the current bucket 


PREV; 


14 
Keep track of its previous and next bucket pointers. 


NEXT = .EDTSSA_WK_BUK [WFB_NEXT_BuUKT); 
, PREV = .EDTSSAZWK-BUK CWFB-PREV-BUKTI; 


! 
! If this is the only bucket in the text buffer just updace 
EDTSSA_WK_LN and get out. 


IF ((.NEXT OR .PREV) EQL 0) 
THEN 
BEGIN 
EDTSSRD_NXTLN (); 
RETURN; 
END; 


‘4 
Release the bucket. 


EDTSSA_WK_BUKCWFB_NEXT BUKT] = .EDTS$G_WK_AVAIL; 
EDTSS$SG_WK_AVAIL = .EDTS$G_WK_CURBUK; 
EDTS$G_WK_MODFD = 1; 
'¢ 
Link the previous bucket to the next one. 
If (.PREV EQL 0) 
og TORN CURD CTBCB_FIRST_BUKT] = .NEXT 
EGIN 
TSSWF_MAKECUR (.PREV); 


ED s ° 
EDTSSA_OK_BUK CWFB_NEXT_BUKT] = .NEXT; 
EDTSS6_UK_RODFD = 7; 


'¢ 
! If this was the last bucket then update EDTSSA_CUR_BUF , otherwise 
go to the next bucket and update it's pointers. 


IF (.NEXT EQL 0) 
THEN 


BEGIN 
EDTS$A_CUR_BUF FTBCB_LAST _BUKT = EDTS$A_CUR_BUF piece CUR_BUKT) = .PREV; 
EDTSS$A_CUR-BUF CTBCB_LINE_ADDR) = .EDTSS$A_WK-BUK CWFB_ENDJ; 
EDTSSRB_NXTLN (); 
END 
ELSE 
BEGIN 
EDTSSWF_MAKECUR (.NEXT); 
EDTS$$A_QK_BUK CWFB_PREV BUKT] = .PREV; 
EDTS$A_CUR_BUF CTBCB_LINE_ADDR) = WFB_FIXED_SIZE; 
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EDTSWFDELBKT EDTSWFDELBKT = delete the current bucket 16-Sep-19 7 VAX-11 Bliss-32 V4.0-7 Pa 
v04-000 EDTSSWF_DELBUK = delete the current bucket 14- Haat 95: 93: 35 DISKSVMSMASTER:CEDT. she WFDELBKT.BLI; A wad (33 | 
: 199 0769 EDTSSA_WK_LN = CHSPTR (.EDTS$A_WK_BUK, .EDTSSA_CUR_BUF CTBCB_LINE_ADDR]); | 
; 200 770 EDTS$$G_WK-MODFD = | 
: 201 771 END; 
; Oe re 
3 0 077 '¢ 
3 Be grre Update the current bucket field. 
: 206 0778 EDTSSA_CUR_BUF CTBCB_CUR_BUKT] = .EDTS$G_WK_CURBUK; | 
; 207 0777 3 END; | of routine EDTSSWF_DELBUK | 
TITLE EDTSWFDELBKT EDTSWFDELBKT - delete the current | 
IDENT \v04-000\ 
EXTRN EDTSSWF_MAKECUR 
EXTRN EDTS$SRD-“NXTLN, EDT$$A_CUR_BUF 
-EXTRN EDTSSA_QK SUK EDT$$G_WK_AVAIL 
XTRN EDT$$G_WK~CURBU 
.EXTRN EDTS$$G_WK-MOD 
-EXTRN EDTSSA~WK-LN 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
07FC 60000 .ENTRY EDTS$UF DELBUK, Save R2,R3,R4,R5,R6,R7,R8,- ; 0657 
5A 000000006 00 9€ 00002 MOVAB EDTS$$WF_MAKECUR, R10 : 
59 000000006 00 9E 00009 MOVAB EDT$$G_QK_CURBUK, R9 : 
58 000000006 99 9E 00010 MOVAB EDTS$$G"WK-AVAIL, R8 : 
57 000000006 00 9€ 00017 MOVAB EDTS$$RD_NRTLN, R7 : 
56 990000006 0 9€ 00016 MOVAB EDTS$G_ OK MODFD, R6 : 
55 99000 006 00 9€ 000 MOVAB = EDTS$A~ CUR BUF, R5 : 
54 000000006 9 4 00 ¢ MOVAB EDTS$A~WK_BUK, R4 : 
50 6 00 ov Btn WK-BUK, RO : 0717 
3¢ 02 AO 3C 00036 MOVZ2WL 2(RO), NERT : 
5 60 C 0003A MOVZWL (RO), PREV : 0718 
50 52 53 C9 00030 BISL3 PREV, NEXT, RO : 0724 
04 12 00041 BNEQ 1$ : 
67 00 FB 00043 CALLS #0, EDTSSRD_NXTLN : 0727 
04 0046 RET : 0726 
50 64 DO 00047 1$ MOVL § EDTS$A_WK_BUK : 0734 
02. AO 68 by 004A MOVW EDTS$G"WK"AVA Afi 2 (RO) : 
68 69 DO 0004E MOVL EDT$$G~WK~ CURBUK otOTs8G. WK _AVAIL : 0735 
66 o1 D 91 MOVL #1, EDTS$$G_WK_MOOFD : 07 6 
3D 4 TSTL PREV : 074 
09 1 036 BNEQ 2$ : 
50 $3 DO 0005 MOVL EDTSSA CUR_BUF, RO > 0744 
OE a0 2 B 05B MOV Hey » T4(R0) z 
OF 11 0005F BRB : 
3 OD 61 23 PUSHL : 0747 
6A 01 FB 3 CALLS Leprssu MAKECUR : | 
50 64 D 66 MOVL its , RO : 0748 
02 AO 2 BO 0006 MOV Next : 
ry o4 D $ MOVL y peOTS86. WK _MODFD > 0749 
: D 3$ TSTL ; 0757 
17 1 7 BNEQ ie : 
51 65 00 0007 MOVL § EDTS$$A_CUR_BUF, R1 : 0760 
| 


wef} 
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0779 1 !<BLF/PAGE> 


EDTSwFDELBKT EDTSWFDELBKT = delete the current bucket 1b-se $ep-1984 7 VAX=11 Olisse 32 v4. 
104-000 EDTSSWF_DELBUK = delete the current bucket 1 7300-1882 98: 93: 35 DISKSVMSMASTER: CEDT. OSRCSFDELBKT. BLI; Pye 
04 Al 53 a 7 MOVW PREV, 4(R1) : 
0 Al ry B mOVW EV, 16(R1) : 
50 64 OD F MOVL EDT $a_wk_BUK, RO : 
61 04 Ad D MOVL (RO), (RT) : 
6 0 FB CALLS , EDTSSRD_NXTLN : 
38 DD B 4S PUSHL NEXT : 
gA 1 F CALLS # EDTSSuF MAKECUR ; 
1 $4 D MOVL f$$A_wk , RI : 
61 3 8 909 MOVW = PREV : 
0 65 D 0% MOVL EDTS$A_CUR_BUF, RO ; 
0 08 D 99 MOVL. #8, (R : 
000000006 00 1 60 ¢ 9C ADDL3 (Rb) R1, EDTS$A_WK_LN : 
66 01 DO 000A4 MOVL EDTSSG_vK MOBFD~ : 
50 65 DO OO0A7 5S: MOVL EDTS$A.c RO ; 
04 Ad 69 BO OOOAA MOVW EDTS$G_ ow RPORBUK® 4(RO) : 
04 OOOAE RET : 

; Routine Size: 175 bytes, Routine Base: _EDTSCODE + 0000 


6 
(3) 


6 
EDTSwFDELBKT DISWFDELBKT - delete the current bucket 1-5 Sep 4 4:37 VAX-11 Bliss-32 V4.0-7 
eet sting -DELBUK = delete the current bucket 14-Sep 71882 96: s +3! DISKSVMSMASTER: cept src WFDELBKT.BLI; rise 


: 313 OF 7 j€ ! of module EDTSWFDELBKT 
: 18 782 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 175 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


a weer ee ot a ee eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255 SSDUARB: EDT. SRCJEDT.L32;1 377 39 10 40 90:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
3 DL SS/CHECR SCE LELD., INITIAL OPT IAI ZE) /NOTRACEBACK/L S91 155107 DELBKT/OBJ00BI8: UF DELEKT MSRC$:WFDELBKT.BLI/UPDATE=(ENHS: WF DE 
size: 175 sode + 0 data bytes 
un Time: 0 8 


Lines/CPU Min: 498 
“Ce A aay) 10797 

pesery Used: 89 pages 
Compilation Complete 


he Time: f :7 
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